home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_121_(06-1985).d64
/
run me first
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
48 lines
1 REM CBM USERS OF NORMAN DISK LIBRARY
2 REM WRITTEN BY DAVID TINGLER
3 POKE53280,0:POKE53281,0:POKE646,1:PRINTCHR$(14):PRINTCHR$(147)
4 PRINTTAB(7)"[195]OMMODORE [213]SERS OF [206]ORMAN"
5 PRINTTAB(5);"C/O [193]. [196]AVID [211]AUSE, [212]REASURER"
6 PRINT" 2111 [202]AZZMAN [196]RIVE,[206]ORMAN, [207][203] 73071"
7 PRINT"[159][208]RESIDENT: [158][212]ED [196]ANILEWICZ.....321-1078"
8 PRINT"[159][211]ECRETARY: [158][202]OYCE [194]ELLER.......794-2071"
9 PRINT"[159][206]EWSLETTER: [158][211]AM [194]ARRETT........321-2601"
10 PRINT"[159]REPORTER: [158][196]AVID [211]WAIM........364-6612"
11 PRINT"[159][204]IBRARIAN: [158][195]LAY [204]EHMANN.......329-8292"
12 PRINT"[159][212]RUSTEES: [158][200]ERB [200]ICKMAN.......321-0692"
13 PRINT" [158][195]ALVERT [196]UKES......799-4350"
14 PRINT
15 PRINT"[159][194][194][211]: [158][207][195][201][197]...............366-7345"
16 PRINT"[159][212]REASURER: [158][196]AVE [211]AUSE.........364-9742"
17 GOSUB44
18 PRINTCHR$(147):PRINT"[159] [208]UBLIC DOMAIN SOFTWARE IS AVAILABLE"
19 PRINT" TO ALL CLUB MEMBERS, BUT WE NEED YOUR "
20 PRINT" PROGRAMS SO WE CAN BUILD THE BEST"
21 PRINT" THE BEST CLUB LIBRARY AROUND!"
22 PRINT"LIBRARY IS BELIEVED TO BE IN THE PUBLIC"
23 PRINT" DOMAIN. [208]LEASE CONTACT THE LIBRARIAN"
24 PRINT" IF YOU HAVE ANY INFORMATION TO THE"
25 PRINT" CONTRARY."
26 PRINTTAB(3)"[159][195]OMMODORE IS A REGISTERED TRADEMARK"
27 PRINT" OF [195]OMMODORE [194]USINESS [205]ACHINES, [201]NC."
28 GOSUB44
29 PRINTCHR$(147)
30 PRINT"[159][208][210][197][211][211]:
31 [153][163]3)"<(null)>SYS TO READ AGAIN."
32 [153][163]3)"OPEN<STR$>SYS TO READ THE DISK DOCUMENTATION."
33 [153][163]3)"OPEN<VAL>SYS TO EXIT PROGRAM."
34 [153][163]3)"OPEN<(null)>SYS TO LOAD NUDOSF WEDGE."
35 [161]C$:[139]C$[178]"R"[167]1
36 [145][171](C$[178]"D")[171]2[172](C$[178]"E")[171]3[172](C$[178]"W")[137]39,47,38
37 [137]35
38 [147]"W",8:[162]
39 [151]53281,11:[151] 53280,11:[159]2,8,2,"JUNE DOC":[153][199](147);:C[178]0
40 [132]2,P$:[139]P$[178]"VAL(null)ASC"[167][137]43
41 [151]646,1:[153]P$:C[178]C[170]1:[139]C[178]23[167][141]44:[153][199](147);
42 [137]40
43 [160]2:[141]44:[137]29
44 C[178]0:[153]" OPEN(PRESS <SPACE BAR> TO CONTINUE)"
45 [161]A$:[139]A$[179][177][199](32)[167]45
46 [142]
47 [128]